home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 April
/
Ahoy_Magazine_88-04_1988_Double_L.d64
/
VIC Chip
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
713b
|
23 lines
10 gosub110
20 rem gosub 160 if you have char data
30 end:rem set up in block 3 now!
40 :
50 a$(1)="useful vic chip routines-basic"
60 a$(2)="[212]his routine moves video memory"
70 a$(3)="to block 3, copies down the"
80 a$(4)="character set and switches over"
90 a$(5)="the screen editor"
100 rem screen = 49152:charset = 61440
110 fori=1to5:printa$(i):next
115 poke781,9:poke782,1:poke90,.:poke91,216:poke88,.:poke89,248
120 poke56333,127:poke1,51:sys41964:poke1,55:poke56333,129
130 poke56578,peek(56578)or3:poke56576,peek(56576)and252
140 poke53272,peek(53272)and15:poke648,192:printchr$(147)
150 poke53272,(peek(53272)and240)or12:return
160 :
170 rem this subroutine reads in and
180 rem pokes character data until it
190 rem encounters a -1 in the data
200 reada:ifa=-1thenreturn
210 forx=.to7:readd:poke61440+a*8+x,d:next:goto200